From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 5 Jul 2007 22:10:48 +0000 (+0000)
Subject: (widget-documentation-string-value-create): Insert indentation spaces.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18079
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d0b7346ed43bc3f374a417640978e088a249b511;p=emacs.git

(widget-documentation-string-value-create): Insert indentation spaces.
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index a69ebdc85e9..f58b1515f7b 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2910,6 +2910,8 @@ link for that string."
 	(let ((before (substring doc 0 (match-beginning 0)))
 	      (after (substring doc (match-beginning 0)))
 	      button)
+	  (when (and indent (not (zerop indent)))
+	    (insert-char ?\s indent))
 	  (insert before ?\s)
 	  (widget-documentation-link-add widget start (point))
 	  (setq button
@@ -2928,6 +2930,8 @@ link for that string."
 	    (insert after)
 	    (widget-documentation-link-add widget start (point)))
 	  (widget-put widget :buttons (list button)))
+      (when (and indent (not (zerop indent)))
+	(insert-char ?\s indent))
       (insert doc)
       (widget-documentation-link-add widget start (point))))
   (insert ?\n))